Option Explicit
Sub N_Sample030()
    Dim myAr As Variant
    Dim i    As Long
    myAr = Array("E", "A", "", "123")		'}Cw
    For i = 0 To UBound(myAr)
        If myAr(i) = StrConv(myAr(i), vbWide) Then
            MsgBox myAr(i) & "ΦrC"
        Else
            MsgBox myAr(i) & "bΦrC"
        End If
    Next
End Sub
